RMEnsure CommandBASIC 0.06 RMRun <Obey$Dir>.^.CmndBASIC

| = 100 * 1.175
Set Alias$= ] PRINT %%*0
| e 100 * 1.175
Set Alias$e ] PRINT EVAL("%%*0")
| ReadByte &8000
| Show Byte
Set Alias$ReadByte ] SYS5,"SetEval Byte "+STR$(?%%0)
| ReadWord &8000
| Show Word
Set Alias$ReadWord ] SYS5,"SetEval Word "+STR$(!%%0)
| SetByte &8000 1
Set Alias$SetByte ] ?%%0=%%1
| SetWord &8000 1234
Set Alias$SetWord ] !%%0=%%1
| Address TaskManager
Set Alias$Address ] SYS30,18,"%%0"TO,,,A%:PRINT~A%
| WorkSpace Zap
Set Alias$Workspace ] SYS30,18,"%%0"TO,,,,A%:PRINT~A%
| X SomeStarCommand
Set Alias$X ] SYS131077,"%%*0"
| StringSet obeydir$ Obey$Dir
| ] PRINT obeydir$
Set Alias$StringSet [ DIM ZZ% 256|M[ SYS35,"%%1",ZZ%,256TO,,ZY%|M[ ZZ%?ZY%=13|M[ %%0=$ZZ%
| NumberSet green% Director$Green
| ] PRINT green%
Set Alias$NumberSet [ DIM ZZ% 4|M[ SYS35,"%%1",ZZ%,4|M[ %%0=!ZZ%
